../smvgear/init_degrade.F